CLS
CLEAR
SCREEN 7
FOR i% = 0 TO 15
COLOR i%
PRINT i%
t = 0
FOR t = 1 TO 1000
NEXT t
NEXT i%
FOR i = 37 TO 5000 STEP 100
SOUND i, 3
NEXT
PLAY "o3t255dfagfedfagfedc+defedefl2el4dfagfedfagfedc+defedfal2>d<"
PLAY "l4p2>c<afgab->c<afgab->c<afgabagfl2gl4afdefgafdefgafdefgfedl2el4"
PLAY "o4t255dfagfedfagfedc+defedefl2eo5l4dfagfedfagfedc+defedfal2>d<"

